﻿Namespace Model

    Public Class BalloonTipContext

        Public Sub New()
        End Sub

        Public Sub New(ByVal title As String, ByVal text As String)
            Me.New(title, text, Nothing)
        End Sub

        Public Sub New(ByVal title As String, ByVal text As String, ByVal uri As Uri)
            _Title = title
            _Text = text
            _Uri = uri
        End Sub

        Private _Title As String
        Public ReadOnly Property Title() As String
            Get
                Return If(_Title, "")
            End Get
        End Property

        Private _Text As String
        Public ReadOnly Property Text() As String
            Get
                Return If(_Text, "")
            End Get
        End Property

        Private _Uri As Uri
        Public ReadOnly Property Uri() As Uri
            Get
                Return _Uri
            End Get
        End Property
    End Class

End Namespace
